Developer CD Series 1994 August: Tool Chest/Dev.CD Aug 94.toast/Sample Code/Newton Sample Code 1.1/Proto Templates/Keys-3/Project Data

Text File | 1994-02-28 | 587 b | 18 lines | [TEXT/ttxt]

// Copyright © 1993-94 Apple Computer, Inc. All rights reserved.

constant kAppSymbol := '|Keys:PIEDTS|;

// first open the resrouce file containing the picture
// that I want. NOTE: you must use a full Macintosh
// pathname for the file. the 'home' constant represents
// your project file path.
r := OpenResFileX(home&"pictures");

// now read in the picture and assign it to a variable
// the second argument says not to generate a mask
planet_Picture := GetPictAsBits("Planet", nil);
TARDIS_Picture := GetPictAsBits("TARDIS", nil);

// then close the resource file
CloseResFileX(r);